home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 0921.ZIP / JOYSTK.ARC / READJOY.INC < prev   
Text File  |  1987-03-29  |  749b  |  20 lines
  1. {READJOY.INC}
  2. procedure ReadJoy(var JoyStickA_XAxis,
  3.                       JoyStickA_YAxis,
  4.                       JoyStickB_XAxis,
  5.                       JoyStickB_YAxis : integer);
  6. {
  7. Author:       David Howorth
  8. Last updated: March 29, 1987
  9. Application:  An inline procedure to read both joysticks,
  10.               using variable parameters.
  11. }
  12.  
  13. begin
  14.   inline($BA/$01/$02/$C4/$BE/JoystickA_XAxis/$B4/$01/$E8/$1D/$00/$C4/$BE
  15.         /JoystickA_YAxis/$B4/$02/$E8/$14/$00/$C4/$BE/JoystickB_XAxis/$B4
  16.         /$04/$E8/$0B/$00/$C4/$BE/JoystickB_YAxis/$B4/$08/$E8/$02/$00/$EB
  17.         /$1C/$B9/$FF/$FF/$EC/$84/$E0/$E0/$FB/$B9/$FF/$FF/$FA/$EE/$EC/$84
  18.         /$E0/$E0/$FB/$FB/$F7/$D9/$83/$C1/$FF/$26/$89/$0D/$C3);
  19. end; {procedure ReadJoy }
  20.